﻿Namespace Runtime

    Public Class GameTimeEventArgs

        Public Property ElapsedGameTime() As New TimeSpan
        Public Property IsRunningSlowly() As Boolean
        Public Property TotalGameTime() As New TimeSpan

        Public Sub New()
            MyBase.New()
        End Sub

#If WINDOWS Then
        Public Sub New(ByVal g As GameTime)
            Me.ElapsedGameTime = g.ElapsedGameTime
            Me.IsRunningSlowly = g.IsRunningSlowly
            Me.TotalGameTime = g.TotalGameTime
        End Sub

#ElseIf WINDOWS_PHONE Then

        Public Sub New(ByVal g As GameTimerEventArgs)
            Me.ElapsedGameTime = g.ElapsedTime
            Me.IsRunningSlowly = False
            Me.TotalGameTime = g.TotalTime
        End Sub
#End If

    End Class

End Namespace